home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 56
/
64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_B.d64
/
polynom a
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
14KB
|
779 lines
20 rem polynomverarbeitumg
40 rem
60 rem nst.,umform.,division,differen-
70 rem tiation,partialbruchzerleg.
80 rem
90 rem
100 rem programed in dec 1988 by
120 rem frank brendel
140 rem angelweg 17
160 rem 69 heidelberg
170 rem
171 rem fuer das 64'er sonderheft gete-
172 rem stet, aufbereitet und ueberar-
173 rem beitet sowie artikel geschrie-
174 rem ben von nikolaus heusler
175 rem zwengauerweg 18
176 rem d-8000 muenchen 71
177 rem
178 rem am 19.6.89 arr
179 rem
180 rem i.a. markt & technik verlag
182 rem alle rechte vorbehalten
190 rem
200 poke53280,0:poke53281,0
210 :
220 dima(26),b(26),c(26),ns(26),fz(26),de(26),dv(26),q(26),r(26),cm(26)
230 dimm1(26,26)
240 :
241 :
242 :
243 :
244 :
245 :
250 print"[147] ";
260 print" [208]olynomverarbeitung ";
270 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
280 :
290 print" 1 : [208]olynomumformung"
300 print:print" 2 : [208]olynomdifferentiation"
310 print:print" 3 : [208]olynomdivision"
320 print:print" 4 : [208]artialbruchzerlegung"
330 print:print" 5 : [206]ullstellenbestimmung"
340 print:print" 6 : [194]est. des [199]rades einer [206]ullstelle"
350 print:print" 7 : [208]olynom berechnen"
360 print:print" 8 : [197]ingabe/[193]endern des [208]olynoms"
362 print:print" 9 : [201]nfo
365 [153]
366 [139]ga[167]370
367 [153]"(NULL)ein (NULL)olynom im (NULL)peicher !":[137]380
370 [153]"(NULL)olynom"ga"cmd. chr$rades
380 poke198,0
400 print" [201]hre [215]ahl .....
402 [151]2023,160:[151]56295,[194](646)
410 [161]a$:a[178][197](a$):[139]a[179]1[176]a[177]9[167]410
415 [139]a[179]8[175]a[177]1[175]ga[179]1[167][153]"loadpeekitte erst (NULL)olynom eingeben!":[129]i[178]1[164]3000:[130]:[137]250
420 [145]a[141]11000,15000,14000,20000,12000,16000,55000,5000,500
430 :
440 :
450 [137]250
460 :
500 [153]"load ";
510 [153]" (NULL)olynomverarbeitung ";
520 [153]" "
530 [153]"right$nformation: (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) atn tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
540 print"[196]ies ist ein [208]rogramm zum [210]echnen mit
542 [153]"(NULL)olynomen.
544 print"[208]rogrammierer: [198]rank [194]rendel
546 [153]"(NULL)eberarbeitet: (NULL)ikolaus left$eusler
547 print
550 print"(c) [195]opyright [205]arkt & [212]echnik [214]erlag
552 [153]" 64'er - (NULL)onderhefte
553 print:print
554 print""
556 print"[194]itte druecken [211]ie eine [212]aste !
557 [151]2023,160:[151]56295,[194](646):[151]198,0:[146]198,1:[142]
1000 [153]:[153]"p(x) ="
1010 :
1020 [129]i[178]gb[171]1[164]0[169][171]1
1030 [153]" ";
1040 [139]b(i)[178]0[167]1100
1050 [139]b(i)[177]0[167][153]"+";
1060 [153]b(i);
1070 [139]i[178]1[167][153]"* x";
1080 [139]i[177]1[167][153]"* x^"[170][202]([196](i),2,4);
1090 :
1100 [130]
1110 :
1120 [142]
1130 ::::::::::::::::::::::
3000 [153]:[153]" ("[170][202]([196](al),2,4)[170]")"
3002 [153]"f (x) ="
3010 :
3020 [129]i[178]gm[164]0[169][171]1
3030 [153]" ";
3040 [139]cm(i)[178]0[167]3100
3050 [139]cm(i)[177]0[167][153]"+";
3060 [153]cm(i);
3070 [139]i[178]1[167][153]"* x";
3080 [139]i[177]1[167][153]"* x^"[170][202]([196](i),2,4);
3090 :
3100 [130]
3110 :
3120 [142]
3130 ::::::::::::::::::::::
4000 [153]:[153]"loadq(x) ="
4010 :
4020 [129]i[178]gr[164]0[169][171]1
4030 [139]q(i)[178]0[167]4080
4040 [139]q(i)[177]0[167][153]"+";
4050 [139]q(i)[179]0[167][153]"-";
4060 [153][182](q(i));
4070 [139]i[177]0[167][153]"* x";:[139]i[177]1[167][153]"^"[170][202]([196](i),2,4);
4080 [130]
4090 [153]:[153]""
4095 oo[178]gr
4100 [139]r(oo)[178]0[167]oo[178]oo[171]1:[139]oo[177][178]0[167]4100
4110 :
4120 [139]oo[179]0[167]4220
4130 [129]i[178]oo[164]0[169][171]1
4140 [139]r(i)[178]0[167]4180
4150 [139]r(i)[177]0[167][153]"+";
4160 [139]r(i)[179]0[167][153]"-";
4170 [153][182](r(i));:[139]i[177]0[167][153]"* x";:[139]i[177]1[167][153]"^"[170][202]([196](i),2,4);
4180 [130]
4185 [153]
4190 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan divisor(x)"
4200 :
4210 :
4220 [142]
4230 ::::::::::::::::::::::::::::
5000 [153]"load (NULL)olynomeingabe "
5010 [153]"valingabe ueber (NULL)oeffizienten oder (NULL)inear-faktoren ? (k/l)"
5020 [161]a$:[139]a$[179][177]"k"[175]a$[179][177]"l"[167]5020
5030 [139]a$[178]"k"[167]17000
5040 :
5050 [153]"load (NULL)olynomeingabe "
5060 [153]"chr$rad n des (NULL)olynoms";:[133]gn
5070 [139]gn[179]1[176]gn[177]15[167]5050
5080 :
5090 [153]:[153]
5100 [133]"chr$esamtfaktor";ns(0):[139]ns(0)[178]0[167][153]"on";:[137]5100
5110 :
5120 [153]"m-fache (NULL)(NULL) bitte m-fach eingeben!"
5130 :
5140 [129]i[178]1[164]gn
5150 [153]"(NULL)ullstelle"i" ";:[133]ns(i):ns(i)[178][171]ns(i)
5160 [130]
5170 :
5180 [141]25380
5190 :
5200 ga[178]gn
5210 [129]i[178]0[164]ga
5220 a(i)[178]b(i)
5230 [130]
5240 :
5250 [142]
9999 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
11000 :
11010 [141]25000
11020 :
11030 [153]"load"
11040 [141]1000
11050 :
11060 [153]:[153]"(NULL)olynom uebernehmen? (j/n)"
11070 [151]198,0
11080 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]11080
11090 :
11100 [139]a$[178]"n"[167][142]
11110 :
11120 ga[178]gb[171]1
11130 [129]i[178]0[164]ga
11140 a(i)[178]b(i)
11150 [130]
11160 :
11170 [142]
11999 :::::::::::::::::::::::::::::
12000 [153]"load (NULL)ullstellenbestimmung "
12010 [153]:[153]
12020 [145]ga[141]12100,12200,12400
12030 [139]ga[177]3[167]13000
12040 [151]198,0:[146]198,1:[161]a$
12050 [142]
12060 :::
12100 x1[178][171]a(0)[173]a(1)
12110 [153]"(NULL)ullstelle:"
12120 [153]"x = ";x1
12130 :
12140 [142]
12150 :
12200 a[178]a(2)
12210 b[178]a(1)
12220 c[178]a(0)
12230 :
12240 [141]30000
12250 [139]d[179]0[167][153]"(NULL)eine (NULL)ullstelle":[142]
12260 [139]d[178]0[167][153]"(NULL)ullstelle:":[153]"x ="x1:[142]
12270 [153]"(NULL)ullstellen:"
12280 [153]"x1 = "x1
12290 [153]"x2 = "x2
12300 :
12310 [142]
12320 :::
12400 a[178]a(3)
12410 b[178]a(2)
12420 c[178]a(1)
12430 d[178]a(0)
12440 :
12450 [141]35000
12460 :
12470 [139]d[177]1e[171]8[167][153]"(NULL)ullstelle:":[153]"x ="x:[142]
12480 :
12490 [153]"(NULL)ullstellen:"
12500 [153]
12510 [153]"x1 ="x1
12520 [153]"x2 ="x2
12530 [153]"x3 ="x3
12540 :
12550 [142]
12560 :
12570 :::::::::::::::::::::::::::::
13000 [153]"(NULL)ullstellen koennen nur naeherungsweisebestimmt werden."
13010 [153]"peekitte den (NULL)uchintervall eingeben!"
13020 [133]"von";x1
13030 [133]"bis";x2
13040 [139]x2[171]x1[179].1[167][153]"on";:[137]13030
13050 :
13060 [133]"(NULL)chrittweite";sw
13070 [139]sw[177](x2[171]x1)[173]2[176]sw[179]1e[171]3[167][153]"on";:[137]13060
13080 [153]:[153]
13090 za[178]0:[153]"(NULL)ullstellen:"
13130 :
13140 wa[178]0:[129]i[178]0[164]ga:wa[178]wa[170]a(i)[172](x2[171]sw)[174]i:[130]
13150 xa[178]x2[171]sw
13160 :
13170 [129]x0[178]x1[164]x2[169]sw
13180 wn[178]0:[129]i[178]0[164]ga:wn[178]wn[170]a(i)[172]x0[174]i:[130]
13190 [139][182](wn)[179]1e[171]7[167]13270
13195 [139]wa[172]wn[177]0[167]13300
13200 xb[178]xa
13210 xz[178]x0[171]wn[172](xa[171]x0)[173](wa[171]wn)
13220 [139]xz[179][178]xb[170]1e[171]7[167]13300
13230 wz[178]0:[129]i[178]0[164]ga:wz[178]wz[170]a(i)[172]xz[174]i:[130]
13240 [139]wn[172]wz[177]0[167]x0[178]xz:wn[178]wz:[137]13250
13245 [139]wn[172]wz[178][179]0[167]xa[178]x0:wa[178]wn:x0[178]xz:wn[178]wz
13250 [139][182](xa[171]x0)[177]1e[171]7[175][182](wn)[177]1e[171]7[167]13210
13260 :
13270 za[178]za[170]1
13280 [153]"x"[170][202]([196](za[171]1),2,4)[170]" =";[181](x0[172]1e6[170].5)[173]1e6
13290 :
13300 xa[178]x0:wa[178]wn:[130]
13310 [139]za[178]0[167][153]"(NULL)eine (NULL)(NULL) gefunden."
13320 [139]za[177]0[167][153]za" (NULL)(NULL) gefunden."
13330 :
13340 :
13350 [151]198,0:[146]198,1:[161]a$
13360 [142]
14000 [153]"load (NULL)olynomdivision "
14010 [153]
14020 [153]"str$ividend ist (NULL)olynom a"
14030 [153]:[153]""
14040 [153]"str$ivisor eingeben:"
14050 [153]
14060 ge[178]ga
14070 [133]"chr$rad n str$ivisor";gv
14080 [139]gv[179]1[176](gv[177]ge)[167][153]"on";:[137]14060
14090 :
14100 [153]
14110 [129]i[178]gv[164]0[169][171]1
14120 [153]"x^"[170][202]([196](i),2,4)[170]": b("i")";:[133]dv(i)
14130 [139]i[178]gv[167][139]dv(i)[178]0[167][153]"on";:[137]14120
14140 [130]
14150 :
14160 :
14170 [129]i[178]0[164]ge
14180 de(i)[178]a(i)
14190 [130]
14200 :
14210 [141]40000
14220 :
14230 [141]4000
14240 :
14250 [139]oo[177][178]0[167]14500
14260 :
14270 [153]"(NULL)olynom uebernehmen? (j/n)"
14280 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]14280
14290 [139]a$[178]"n"[167][142]
14300 [129]i[178]0[164]gr
14310 a(i)[178]q(i)
14320 [130]
14330 ga[178]gr
14340 [142]
14500 [151]198,0:[146]198,1:[161]a$:[142]
14510 :
14520 :
14530 :::::::::::::::::::::::
15000 [153]"load (NULL)olynomdifferentiation ";
15010 [153]:[153]
15030 gc[178]ga
15040 [129]i[178]gc[164]0[169][171]1
15050 c(i)[178]a(i)
15060 [130]
15070 [133]"(NULL)ievielte atnbleitung";al
15080 [139]al[177]gc[167][153]"on";:[137]15070
15090 [139]al[179]0[167][153]"on";:[137]15070
15100 :
15110 [141]45350
15120 :
15130 [141]3000
15140 :
15150 [153]:[153]
15160 [153]"(NULL)olynom uebernehmen? (j/n)"
15170 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]15170
15180 [139]a$[178]"n"[167][142]
15190 [129]i[178]0[164]gm
15200 a(i)[178]cm(i)
15210 [130]
15220 ga[178]gm:[142]
15230 [151]198,0:[146]198,1:[161]a$:[142]
15240 :
15250 :
15800 :::::::::::::::::::::::
16000 [153]"load peekestimmen des chr$rades einer (NULL)ullstelle "
16010 [153]:[153]
16020 [133]"(NULL)ullstelle";x0
16030 :
16040 [153]:[153]
16050 :
16060 [129]i[178]0[164]ga
16070 c(i)[178]a(i)
16080 [130]
16090 gc[178]ga
16100 al[178]0
16110 :
16120 [141]45355
16130 :
16140 er[178]0
16150 [129]i[178]0[164]gm
16160 er[178]er[170]cm(i)[172]x0[174]i
16170 [130]
16180 [139][182](er)[177]1e[171]6[167]16300
16190 :
16200 al[178]al[170]1
16210 [137]16120
16220 :
16300 [139]al[178]0[167][153]"(NULL)eine (NULL)ullstelle.":[137]16320
16310 [153]"(NULL)ullstelle"al". chr$rades"
16320 :
16330 :
16340 [151]198,0:[146]198,1:[161]a$:[142]
16350 :
16999 ::::::::::::::::::::::::::::
17000 [153]"load (NULL)olynomeingabe "
17010 [153]"chr$rad des (NULL)olynoms";ga
17020 [153]:[153]"p(x) ="
17030 :
17040 [129]i[178]ga[164]0[169][171]1
17050 [153]" ";
17060 [139]a(i)[178]0[167]17120
17070 [139]a(i)[177]0[167][153]"+";
17080 [153]a(i);
17090 [139]i[178]1[167][153]"* x";
17100 [139]i[177]1[167][153]"* x^"[170][202]([196](i),2,4);
17110 :
17120 [130]
17130 :
17140 :
17150 [153]
17160 [153]:[153]"atnendern ? (j/n) ";
17180 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]17180
17190 [139]a$[178]"n"[167][142]
17200 [139]ga[178]0[167]17400
17210 [153]a$:[153]"atnendern des chr$rades n ("ga") ? (j/n)"
17220 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]17220
17230 [139]a$[178]"j"[167]17400
17240 :
17250 [153]"load (NULL)olynomkorrektur "
17260 [153]
17270 [129]i[178]ga[164]0[169][171]1
17280 [153]"x^"[170][202]([196](i),2,2)" : a("i") = "[163]19);a(i)"on"
17282 [153][163]17);
17285 [133]a(i)
17290 [130]
17300 :
17310 [142]
17400 [153]"load (NULL)olynomeingabe "
17410 [153]
17420 [133]"chr$rad des (NULL)olynoms";ga
17430 [139]ga[179]1[176]ga[177]25[167]17400
17435 [153]
17440 [129]i[178]ga[164]0[169][171]1
17450 [153]"x^"[170][202]([196](i),2,2)" : a("i") =";:[133]a(i)
17460 [130]
17470 :
17480 [142]
17490 :
20000 :
20010 [143] partialbruchzerlegung
20020 [153]"load (NULL)artialbruchzerlegung "
20030 [153]:[153]
20040 [153]"str$ividendenpolynom ist (NULL)olynom a mit chr$rad n="ga
20050 [153]:[153]
20060 [153]"peekitte str$ivisorpolynom eingeben!"
20070 [133]"chr$rad n (div) =";gv
20080 [139]ga[177][178]gv[176]gv[177]25[167][153]"on";:[137]20070
20090 :
20100 [153]"(NULL)olynom ueber (NULL)ullstellen eingeben!"
20110 [153]
20120 [133]"chr$esamtfaktor";dv(0):[139]dv(0)[178]0[167][153]"on";:[137]20120
20130 [153]
20135 zn[178]1
20140 [129]i[178]1[164]gv
20150 [153]i". (NULL)ullstelle";:[133]dv(zn)
20160 [153]" chr$rad der (NULL)ullstelle";:[133]de(zn)
20170 [139]de(zn)[170]i[171]1[177]gv[176]de(zn)[179]1[167][153]"on";:[137]20160
20175 i[178]i[170]de(zn)[171]1
20180 zn[178]zn[170]1
20190 [130]
20195 zn[178]zn[171]1
20200 :
20210 [153]"peekitte warten!"
20220 :
20230 [129]i[178]0[164]ga
20240 c(i)[178]a(i)[173]dv(0)
20250 [130]
20260 gc[178]ga
20270 :
20280 sy[178]gv[171]1
20290 :
20300 gz[178]0
20310 [129]ni[178]1[164]zn
20320 [129]nj[178]1[164]de(ni)
20330 gz[178]gz[170]1
20340 :
20350 gn[178]gv[171]nj
20360 ns(0)[178]1
20370 :
20380 [143] ns->umformen zuordnen
20390 nk[178]0:gx[178]0
20400 nk[178]nk[170]1
20410 [139]nk[177]zn [167] 20510
20420 :
20430 [139]nk[178]ni[167]20400 :[143] diese ns extra
20440 :
20450 :
20460 [129]nl[178]1[164]de(nk):[143] alle anderen ns
20470 gx[178]gx[170]1
20480 ns(gx)[178][171]dv(nk)
20490 [130]
20495 [137]20400
20500 :
20510 nk[178]0
20520 nk[178]nk[170]1
20530 [139]nk[177]de(ni)[171]nj[167]20580
20540 gx[178]gx[170]1
20550 ns(gx)[178][171]dv(ni)
20560 [137]20520
20570 :
20580 :
20590 [141]25380
20600 :
20610 [129]nk[178]0[164]sy
20620 m1(nk,gz[171]1)[178]b(nk)
20630 [130]
20640 :
20650 [130]
20660 [130]
20670 :
20680 [129]ni[178]0[164]sy
20690 m1(ni,sy[170]1)[178]c(ni)
20700 [130]
20710 :
20720 [141]56760
20730 [139]ff[178]1[167]20890
20740 [153]"loadp(x) ="
20750 :
20752 ll[178]0
20760 gz[178]0:gx[178]1:gy[178]1
20770 er[178][181](m1(gz,sy[170]1)[173]m1(gz,gz)[172]1e7[170].5)[172]1e[171]7
20775 [139]er[178]0[167]20850
20780 ll[178]ll[170]1:[153]" "er
20790 [153]"+ tantantantantantantantantantantantantan"
20800 [153]" (x ";
20810 [139]dv(gx)[178][179]0[167][153]"+"[182](dv(gx));
20820 [139]dv(gx)[177]0[167][153]"-"dv(gx);
20825 [153]")";
20830 [139]gy[177]1[167][153]"^"[170][202]([196](gy),2,4);
20840 [153]:[153]
20842 [139]ll[177]4[167]ll[178]0:[153],,"(NULL)aste":[151]198,0:[146]198,1:[161]a$
20850 gy[178]gy[170]1
20860 [139]gy[177]de(gx)[167]gx[178]gx[170]1:gy[178]1
20870 [139]gx[179][178]zn[167]gz[178]gz[170]1:[137]20770
20880 :
20890 [151]198,0:[146]198,1:[161]a$
20900 [142]
24999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
25000 [143]
25010 [143] p(x)= a0 * (x-a1) * (x-a2) *
25020 [143]
25030 [143] * ... * (x-an)
25040 [143]
25050 [143]
25060 [143] => = bn x^n + bn-1 x^n-1 +
25070 [143]
25080 [143] +...+b2 x^2 + b1 x + b0
25090 [143]
25100 :
25110 :
25120 :
25130 :
25140 [153]"load (NULL)olynomumformung ";
25150 :
25160 [153]
25170 :
25180 [153]"p(x)= a * (x-a ) * (x-a ) *...* (x-a )"
25190 [153]" 0 1 2 n"
25200 [153]""
25210 [133]"chr$rad n des (NULL)olynoms";gn
25220 [139]gn[179]1[176]gn[177]25[167][153]"on";:[137]25210
25230 :
25240 :
25250 :
25280 :
25290 [153]"peekitte den chr$esamtfaktor eingeben!"
25300 [133]"a(0)";ns(0):[139]ns(0)[178]0[167][153]"on";:[137]25300
25310 :
25320 [153]"peekitte die (NULL)ullstellen eingeben!"
25330 [129]gb[178]1[164]gn
25340 [153]"a("gb") =";:[133]ns(gb):ns(gb)[178][171]ns(gb)
25350 [130]
25360 :
25370 :
25380 :
25390 [129]gb[178]0[164]26:b(gb)[178]0:[130]
25400 :
25410 :
25420 [129]gb[178]0[164]gn
25430 :
25440 :
25450 v1[178]gn:v2[178]gb:[141]26070:k[178]er
25460 v[178]gn[171]gb
25470 :
25480 :
25490 :
25500 [139]v[178]0[167]b(gb)[178]1:[137] 25780
25510 b(gb)[178]0
25520 :
25530 [129]l[178]1[164]v
25540 fz(l)[178]l
25550 [130]
25560 r[178]0
25570 :
25580 r[178]r[170]1
25590 sr[178]1
25600 :
25610 [129]l[178]1[164]v
25620 sr[178]sr[172]ns(fz(l))
25630 [130]
25640 :
25650 b(gb)[178]b(gb)[170]sr
25660 [139]r[178][177]k[167] 25780
25670 :
25680 gr[178]0
25690 [139]fz(v[171]gr)[170]gr[170]1[177]gn[167]gr[178]gr[170]1:[137]25690
25700 :
25710 [129]zz[178]0[164]gr
25720 fz(v[171]zz)[178]fz(v[171]gr)[170]1[170]gr[171]zz
25730 [130]
25740 :
25750 [137]25580
25760 :
25770 :
25780 b(gb)[178]b(gb)[172]ns(0)
25790 :
25800 [130]gb
25810 :
25820 :
25830 [142]
25840 :
25850 :
26060 [143]***********************************************************************
26070 [143] er= kombinationen von v1 ueber v2
26080 :
26090 er[178]1
26100 [139]v1[179][178]v2[167][142]
26110 :
26120 [129]qz[178]v2[170]1[164]v1
26130 er[178]er[172]qz
26140 [130]
26150 [129]qz[178]1[164]v1[171]v2
26160 er[178]er[173]qz
26170 [130]
26180 er[178][181](er[170].1)
26190 [142]
26200 :
29999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
30000 :
30010 :
30020 :
30030 [143] quadratische gleichung
30040 :
30050 :
30130 d[178]b[174]2[171]4[172]a[172]c
30140 [139]d[179]0[167]30220
30150 x1[178]([171]b[170][186](d))[173](2[172]a)
30160 x2[178]([171]b[171][186](d))[173](2[172]a)
30170 :
30180 x1[178][181](x1[172]1e6[170].5)[173]1e6
30190 x2[178][181](x2[172]1e6[170].5)[173]1e6
30200 :
30210 :
30220 [142]
30230 :
34999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
35000 :
35010 :
35020 :
35030 [143] kubische gleichung
35040 :
35050 :
35120 :
35130 r[178]b[173]a
35140 s[178]c[173]a
35150 t[178]d[173]a
35160 :
35170 p[178](3[172]s[171]r[172]r)[173]3
35180 q[178](2[172]r[174]3)[173]27[171]r[172]s[173]3[170]t
35190 :
35200 :
35210 d[178](p[173]3)[174]3[170](q[173]2)[174]2
35220 [139]d[179][178]1e[171]8[167]35370
35230 :
35240 un[178][171]q[173]2[170][186](d):u[178]([182](un))[174](1[173]3)[172][180](un)
35250 v[178][171]p[173](3[172]u)
35260 :
35270 y1[178]u[170]v
35280 :
35290 x[178]y1[171]r[173]3
35300 x[178][181](x[172]1e6[170].5)[173]1e6
35310 :
35320 [143] x=ns wenn d>=0
35330 [142]
35340 :
35350 :
35360 :
35370 si[178][186]([171]p[174]3[173]27)
35380 :
35390 cf[178][171]q[173](2[172]si)[171]1:cf[178][181](cf[172]1e6[170].5)[172]1e[171]6:cf[178]cf[170]1
35400 fi[178][171][193](cf[173][186](1[171]cf[174]2[170]1e[171]10))[170][255][173]2
35410 :
35420 y1[178]2[172](si)[174](1[173]3)[172][190](fi[173]3)
35430 y2[178]2[172](si)[174](1[173]3)[172][190](fi[173]3[170]2[172][255][173]3)
35440 y3[178]2[172](si)[174](1[173]3)[172][190](fi[173]3[170]4[172][255][173]3)
35450 :
35460 :
35470 x1[178]y1[171]r[173]3:x1[178][181](1e6[172]x1[170].5)[173]1e6
35480 x2[178]y2[171]r[173]3:x2[178][181](1e6[172]x2[170].5)[173]1e6
35490 x3[178]y3[171]r[173]3:x3[178][181](1e6[172]x3[170].5)[173]1e6
35500 :
35510 :
35520 :
35530 :
35540 :
35550 :
35560 [142]
39999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
40000 [143]
40010 [143]
40020 [143] polynomdivision
40030 [143]
40040 [143]
40050 [143]
40060 [143] p(x) = an x^n + an-1 x^n-1 +
40070 [143]
40080 [143] +...+a2 x^2 + a1 x + a0
40090 [143]
40470 :
40480 gr[178]ge[171]gv
40490 [129]i[178]ge [164]gv[169][171]1
40500 q(i[171]gv)[178]de(i)[173]dv(gv)
40510 [129]j[178]0[164]gv
40520 de(i[171]j)[178]de(i[171]j)[171]q(i[171]gv)[172]dv(gv[171]j)
40530 [139][182](de(i[171]j))[177][178][182](q(i[171]gv)[172]dv(gv[171]j))[172]1e[171]8[167] 40550
40540 de(i[171]j)[178]0
40550 [130]j
40560 [130]i
40570 :
40580 :
40590 [129]i[178]gr[164]0[169][171]1
40600 r(i)[178]de(i)
40610 [130]i
40620 :
40630 [142]
40880 :
40890 :
44999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
45000 :
45010 [143]
45020 [143] polynomdifferentiation
45030 [143]
45040 [143]
45050 [143]
45060 [143] f(x) = an x^n + an-1 x^n-1 +
45070 [143]
45080 [143] +...+a2 x^2 + a1 x + a0
45090 [143]
45350 :
45355 gm[178]gc[171]al
45360 [129]r[178]0[164]gm
45370 :
45380 v1[178]r[170]al:[141]45620:fa[178]er
45390 v1[178]r:[141]45620:fa[178]fa[173]er
45395 fa[178][181](fa[172]1e6[170].5)[173]1e6
45400 :
45410 cm(r)[178]fa[172]c(al[170]r)
45420 :
45430 [130]
45440 :
45450 [142]
45600 :
45610 [143]*******************************
45620 [143] er = v1!
45630 er[178]1
45640 [139]v1[179]1[167][142]
45650 [129]qz[178]1[164]v1
45660 er[178]er[172]qz
45670 [130]
45680 [142]
49999 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
55000 [143] funktionswert berechnen
55010 [153]"load (NULL)olynom ausrechnen "
55020 [153]"peekitte die (NULL)telle x0 eingeben!"
55030 [133]"x0 = ";x0
55040 :
55050 :
55100 su[178]0
55110 [129]i[178]0[164]ga
55120 su[178]su[170]a(i)[172]x0[174]i
55130 [130]
55140 :
55150 :
55160 [153]"p (x0) =";su
55170 :
55180 :
55190 [151]198,0:[146]198,1:[161]a$
55200 [142]
55210 :
55220 :
55230 :
55240 :::::::::::::::::::::::::
56610 [153]"(NULL)eine valindeutige (NULL)oesung des chr$(NULL) moeglich.":ff[178]1:[142]
56620 :
56760 [129]k[178]0[164]sy
56770 [139]k[178]sy[167]56890
56780 u[178][182](m1(k,k))
56790 :
56800 [129]i[178]k[170]1[164]sy
56810 [139][182](m1(i,k))[179][178]u[167]56870
56820 u[178][182](m1(i,k))
56830 :
56840 [129]j[178]k[164]sy[170]1
56850 zz[178]m1(k,j):m1(k,j)[178]m1(i,j):m1(i,j)[178]zz
56860 [130]j
56870 [130]i
56880 :
56890 [139][182](m1(k,k))[179][178]1e[171]7[167]56610
56900 :
56910 [129]i[178]0[164]sy
56920 [139]i[178]k[167]56980
56930 t[178]m1(i,k)[173]m1(k,k)
56940 :
56950 [129]j[178]k[170]1[164]sy[170]1
56960 m1(i,j)[178]m1(i,j)[171]m1(k,j)[172]t
56970 [130]j
56980 [130]i
56990 [130]k
57000 :
57010 [139]r[179][177]0[167][153]"(NULL)aste druecken!"
57020 [142]